home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #1 / 1999 CD 1 (black).iso / Fisher-Price / Crane.dcr / scripts_33.ls < prev    next >
Encoding:
Text File  |  1998-08-17  |  2.0 KB  |  68 lines
  1. on playmysmmovie moviesymbol, palcastname, palname, horiz, vert, inflag, mouselockcheck
  2.   global gSmackerObject
  3.   set the soundKeepDevice to 0
  4.   puppetSound("silencex")
  5.   updateStage()
  6.   set t to the timer + 10
  7.   repeat while the timer < t
  8.   end repeat
  9.   puppetSound(0)
  10.   updateStage()
  11.   set myreturn to 0
  12.   if not objectp(gSmackerObject) then
  13.     set gSmackerObject to new(xtra("smacker"))
  14.   end if
  15.   if voidp(moviesymbol) then
  16.     set myfile to new(xtra("fileio"))
  17.     set myfilename to displayOpen(myfile)
  18.   else
  19.     set smmovieinfo to FindsmMoviename(moviesymbol)
  20.     if not voidp(smmovieinfo) then
  21.       set myfilename to getAt(smmovieinfo, 1)
  22.       set myred to getAt(smmovieinfo, 2)
  23.       set mygreen to getAt(smmovieinfo, 3)
  24.       set myblue to getAt(smmovieinfo, 4)
  25.     else
  26.       set myfilename to VOID
  27.     end if
  28.   end if
  29.   set killmeflag to 0
  30.   if not voidp(myfilename) then
  31.     if not (inflag = #notrans) then
  32.       set res to SmackOpenTrans(gSmackerObject, myfilename, 1, 0, myred, mygreen, myblue)
  33.     else
  34.       set res to SmackOpen(gSmackerObject, myfilename, 1, 0)
  35.     end if
  36.     if not voidp(horiz) and not voidp(vert) then
  37.       SmackSetPosition(gSmackerObject, horiz, vert)
  38.     end if
  39.     if res = 0 then
  40.       set res to SmackRemapToPalette(gSmackerObject, palcastname, palname)
  41.       if not (res = 0) then
  42.         set killmeflag to 1
  43.       else
  44.         set ClickLockout to 0
  45.         SmackSetInterfaceKeys(gSmackerObject, "\m")
  46.         cursor(4)
  47.         SmackPlay(gSmackerObject)
  48.         cursor(0)
  49.         if not ClickLockout then
  50.           set keyhittostopmovie to SmackGetLastKey(gSmackerObject)
  51.           set MouseclickX to SmackGetMouseClickX(gSmackerObject)
  52.           set MouseclickY to SmackGetMouseClickY(gSmackerObject)
  53.           case keyhittostopmovie of
  54.             "\m":
  55.               set myreturn to list(#mouse, MouseclickX, MouseclickY)
  56.           end case
  57.         end if
  58.       end if
  59.     else
  60.       set killmeflag to 1
  61.     end if
  62.   end if
  63.   set myfile to 0
  64.   SmackClose(gSmackerObject)
  65.   set gSmackerObject to 0
  66.   set the soundKeepDevice to 1
  67. end
  68.